/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / FREENET-STACK / ACRNET22 / !AcornetF_BootApps

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 42 6f | 6f 74 41 70 70 73 0d 00 |.....>Bo|otApps..|
|00000010| 14 21 f4 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |.!. Copy|right 19|
|00000020| 39 36 20 43 6f 6c 69 6e | 20 48 6f 67 62 65 6e 0d |96 Colin| Hogben.|
|00000030| 00 1e 40 f4 20 59 6f 75 | 20 75 73 65 20 74 68 69 |..@. You| use thi|
|00000040| 73 20 63 6f 64 65 20 66 | 6f 72 20 61 6e 79 20 6e |s code f|or any n|
|00000050| 6f 6e 2d 70 72 6f 66 69 | 74 20 70 75 72 70 6f 73 |on-profi|t purpos|
|00000060| 65 2c 20 70 72 6f 76 69 | 64 65 64 20 79 6f 75 0d |e, provi|ded you.|
|00000070| 00 28 3e f4 20 64 6f 63 | 75 6d 65 6e 74 20 61 6e |.(>. doc|ument an|
|00000080| 79 20 63 68 61 6e 67 65 | 73 20 6d 61 64 65 20 61 |y change|s made a|
|00000090| 6e 64 20 61 70 70 6c 79 | 20 74 68 65 20 73 61 6d |nd apply| the sam|
|000000a0| 65 20 63 6f 6e 64 69 74 | 69 6f 6e 73 2e 0d 00 32 |e condit|ions...2|
|000000b0| 04 0d 00 3c 31 f4 20 43 | 68 61 6e 67 65 73 20 28 |...<1. C|hanges (|
|000000c0| 43 6f 70 79 72 69 67 68 | 74 20 4a 2e 48 65 65 6e |Copyrigh|t J.Heen|
|000000d0| 61 6e 2c 20 31 39 39 37 | 29 20 2d 3e 20 56 31 2e |an, 1997|) -> V1.|
|000000e0| 30 31 0d 00 3d 40 f4 20 | 62 6f 6f 74 5f 66 6f 72 |01..=@. |boot_for|
|000000f0| 63 65 20 6e 6f 77 20 63 | 72 65 61 74 65 73 20 61 |ce now c|reates a|
|00000100| 6e 20 65 6d 70 74 79 20 | 21 42 6f 6f 74 20 66 69 |n empty |!Boot fi|
|00000110| 6c 65 20 69 6e 20 74 68 | 65 20 66 61 6b 65 20 61 |le in th|e fake a|
|00000120| 70 70 0d 00 3e 41 f4 20 | 64 69 72 65 63 74 6f 72 |pp..>A. |director|
|00000130| 79 2e 20 49 66 20 74 68 | 69 73 20 69 73 6e 27 74 |y. If th|is isn't|
|00000140| 20 64 6f 6e 65 2c 20 74 | 68 65 20 66 69 6c 65 72 | done, t|he filer|
|00000150| 20 64 6f 65 73 20 6e 6f | 74 20 63 6f 75 6e 74 20 | does no|t count |
|00000160| 74 68 65 0d 00 3f 15 f4 | 20 61 70 70 20 61 73 20 |the..?..| app as |
|00000170| 27 62 6f 6f 74 65 64 27 | 0d 00 46 04 0d 00 50 13 |'booted'|..F...P.|
|00000180| f4 20 52 65 71 75 69 72 | 65 6d 65 6e 74 73 3a 0d |. Requir|ements:.|
|00000190| 00 5a 3f f4 20 28 42 31 | 29 20 41 70 70 6c 69 63 |.Z?. (B1|) Applic|
|000001a0| 61 74 69 6f 6e 73 20 69 | 6e 20 52 65 73 6f 75 72 |ations i|n Resour|
|000001b0| 63 65 73 20 61 6e 64 20 | 41 70 70 73 20 73 68 6f |ces and |Apps sho|
|000001c0| 75 6c 64 20 62 65 20 62 | 6f 6f 74 65 64 2e 0d 00 |uld be b|ooted...|
|000001d0| 64 44 f4 20 28 42 32 29 | 20 49 66 20 61 6e 20 61 |dD. (B2)| If an a|
|000001e0| 70 70 20 68 61 73 20 62 | 65 65 6e 20 62 6f 6f 74 |pp has b|een boot|
|000001f0| 65 64 2f 73 65 65 6e 2f | 72 75 6e 20 65 6c 73 65 |ed/seen/|run else|
|00000200| 77 68 65 72 65 2c 20 6f | 76 65 72 72 69 64 65 20 |where, o|verride |
|00000210| 69 74 0d 00 6e 3e f4 20 | 28 42 33 29 20 49 66 20 |it..n>. |(B3) If |
|00000220| 61 6e 20 61 70 70 20 69 | 73 20 73 65 65 6e 20 65 |an app i|s seen e|
|00000230| 6c 73 65 77 68 65 72 65 | 20 61 66 74 65 72 20 41 |lsewhere| after A|
|00000240| 63 6f 72 6e 65 74 20 68 | 61 73 20 62 65 65 6e 20 |cornet h|as been |
|00000250| 0d 00 78 3f f4 20 20 20 | 20 20 20 73 74 61 72 74 |..x?.   |   start|
|00000260| 65 64 2c 20 69 74 20 73 | 68 6f 75 6c 64 20 6e 6f |ed, it s|hould no|
|00000270| 74 20 6f 76 65 72 72 69 | 64 65 20 74 68 65 20 41 |t overri|de the A|
|00000280| 63 6f 72 6e 65 74 20 76 | 65 72 73 69 6f 6e 2e 0d |cornet v|ersion..|
|00000290| 00 82 42 f4 20 28 42 34 | 29 20 4e 6f 20 75 6e 6e |..B. (B4|) No unn|
|000002a0| 65 63 65 73 73 61 72 79 | 20 77 6f 72 6b 20 28 62 |ecessary| work (b|
|000002b0| 6f 6f 74 69 6e 67 29 20 | 73 68 6f 75 6c 64 20 62 |ooting) |should b|
|000002c0| 65 20 64 6f 6e 65 20 69 | 66 20 41 63 6f 72 6e 65 |e done i|f Acorne|
|000002d0| 74 0d 00 8c 25 f4 20 20 | 20 20 20 20 68 61 73 20 |t...%.  |    has |
|000002e0| 61 6c 72 65 61 64 79 20 | 62 65 65 6e 20 72 75 6e |already |been run|
|000002f0| 20 6f 6e 63 65 2e 0d 00 | 96 3f f4 20 28 42 35 29 | once...|.?. (B5)|
|00000300| 20 54 68 65 20 75 73 65 | 72 20 73 68 6f 75 6c 64 | The use|r should|
|00000310| 20 62 65 20 67 69 76 65 | 6e 20 66 65 65 64 62 61 | be give|n feedba|
|00000320| 63 6b 20 6f 6e 20 74 68 | 65 20 70 72 6f 67 72 65 |ck on th|e progre|
|00000330| 73 73 20 6f 66 0d 00 a0 | 1e f4 20 20 20 20 20 20 |ss of...|..      |
|00000340| 6c 65 6e 67 74 68 79 20 | 6f 70 65 72 61 74 69 6f |lengthy |operatio|
|00000350| 6e 73 2e 0d 00 aa 04 0d | 00 b4 44 f4 20 49 66 20 |ns......|..D. If |
|00000360| 61 20 66 69 6c 65 72 20 | 77 69 6e 64 6f 77 20 69 |a filer |window i|
|00000370| 73 20 6f 70 65 6e 65 64 | 20 28 77 69 74 68 6f 75 |s opened| (withou|
|00000380| 74 20 43 54 52 4c 29 20 | 77 68 69 63 68 20 63 6f |t CTRL) |which co|
|00000390| 6e 74 61 69 6e 73 20 21 | 61 70 70 0d 00 be 43 f4 |ntains !|app...C.|
|000003a0| 20 74 68 65 20 66 69 6c | 65 72 20 46 69 6c 65 72 | the fil|er Filer|
|000003b0| 5f 42 6f 6f 74 73 20 69 | 74 20 69 66 20 69 74 20 |_Boots i|t if it |
|000003c0| 68 61 73 20 6e 6f 74 20 | 46 69 6c 65 72 5f 42 6f |has not |Filer_Bo|
|000003d0| 6f 74 65 64 20 61 6e 20 | 61 70 70 20 6f 66 0d 00 |oted an |app of..|
|000003e0| c8 41 f4 20 74 68 65 20 | 73 61 6d 65 20 6e 61 6d |.A. the |same nam|
|000003f0| 65 20 62 65 66 6f 72 65 | 2e 20 20 46 69 6c 65 72 |e before|.  Filer|
|00000400| 5f 42 6f 6f 74 69 6e 67 | 20 6d 65 61 6e 73 20 72 |_Booting| means r|
|00000410| 75 6e 6e 69 6e 67 20 21 | 42 6f 6f 74 20 69 66 0d |unning !|Boot if.|
|00000420| 00 d2 2e f4 20 70 72 65 | 73 65 6e 74 2c 20 65 6c |.... pre|sent, el|
|00000430| 73 65 20 64 6f 69 6e 67 | 20 49 63 6f 6e 53 70 72 |se doing| IconSpr|
|00000440| 69 74 65 73 20 21 53 70 | 72 69 74 65 73 0d 00 dc |ites !Sp|rites...|
|00000450| 04 0d 00 e6 40 f4 20 42 | 33 20 69 6d 70 6c 69 65 |....@. B|3 implie|
|00000460| 73 20 74 68 61 74 20 46 | 69 6c 65 72 5f 42 6f 6f |s that F|iler_Boo|
|00000470| 74 20 6d 75 73 74 20 68 | 61 76 65 20 62 65 65 6e |t must h|ave been|
|00000480| 20 72 75 6e 20 6f 6e 20 | 73 6f 6d 65 74 68 69 6e | run on |somethin|
|00000490| 67 0d 00 f0 12 f4 20 63 | 61 6c 6c 65 64 20 21 61 |g..... c|alled !a|
|000004a0| 70 70 2e 0d 00 fa 43 f4 | 20 53 6f 6d 65 20 61 70 |pp....C.| Some ap|
|000004b0| 70 73 20 65 2e 67 2e 20 | 21 53 65 72 69 61 6c 44 |ps e.g. |!SerialD|
|000004c0| 65 76 20 26 20 21 57 65 | 62 43 61 63 68 65 20 61 |ev & !We|bCache a|
|000004d0| 72 65 20 22 6d 65 65 6b | 22 20 61 6e 64 20 77 69 |re "meek|" and wi|
|000004e0| 6c 6c 20 6e 6f 74 0d 01 | 04 3e f4 20 72 65 64 65 |ll not..|.>. rede|
|000004f0| 66 69 6e 65 20 74 68 65 | 69 72 20 73 79 73 74 65 |fine the|ir syste|
|00000500| 6d 20 76 61 72 69 61 62 | 6c 65 73 20 69 66 20 74 |m variab|les if t|
|00000510| 68 65 79 20 61 72 65 20 | 61 6c 72 65 61 64 79 20 |hey are |already |
|00000520| 73 65 74 2e 0d 01 0e 04 | 0d 01 18 20 40 25 3d 30 |set.....|... @%=0|
|00000530| 3a ee 20 85 20 f1 20 f6 | 24 22 20 61 74 20 6c 69 |:. . . .|$" at li|
|00000540| 6e 65 20 22 9e 3a 20 e0 | 0d 01 22 04 0d 01 2c 33 |ne ".: .|.."...,3|
|00000550| c8 9b 22 41 63 6f 72 6e | 65 74 42 6f 6f 74 3a 43 |.."Acorn|etBoot:C|
|00000560| 6f 72 65 22 3a f2 63 6f | 72 65 5f 69 6e 69 74 28 |ore":.co|re_init(|
|00000570| 22 41 63 6f 72 6e 65 74 | 42 6f 6f 74 3a 22 29 0d |"Acornet|Boot:").|
|00000580| 01 36 38 74 72 61 63 65 | 5f 66 69 6c 65 24 3d 22 |.68trace|_file$="|
|00000590| 3c 41 63 6f 72 6e 65 74 | 24 44 69 72 3e 2e 62 6f |<Acornet|$Dir>.bo|
|000005a0| 6f 74 74 72 61 63 65 22 | 3a f4 20 50 52 4f 43 74 |ottrace"|:. PROCt|
|000005b0| 72 61 63 65 5f 6f 6e 0d | 01 40 14 f2 6c 69 62 72 |race_on.|.@..libr|
|000005c0| 61 72 79 28 22 77 69 6d | 70 22 29 0d 01 4a 14 f2 |ary("wim|p")..J..|
|000005d0| 6c 69 62 72 61 72 79 28 | 22 66 69 6c 65 22 29 0d |library(|"file").|
|000005e0| 01 54 13 f2 6c 69 62 72 | 61 72 79 28 22 64 69 72 |.T..libr|ary("dir|
|000005f0| 22 29 0d 01 5e 04 0d 01 | 68 23 74 69 74 6c 65 24 |")..^...|h#title$|
|00000600| 3d 22 41 63 6f 72 6e 65 | 74 20 49 6e 69 74 69 61 |="Acorne|t Initia|
|00000610| 6c 69 73 61 74 69 6f 6e | 22 0d 01 72 1c f2 77 69 |lisation|"..r..wi|
|00000620| 6d 70 5f 69 6e 69 74 69 | 61 6c 69 73 65 28 74 69 |mp_initi|alise(ti|
|00000630| 74 6c 65 24 29 0d 01 7c | 14 c8 99 22 48 6f 75 72 |tle$)..||..."Hour|
|00000640| 67 6c 61 73 73 5f 4f 6e | 22 0d 01 86 16 f2 61 74 |glass_On|".....at|
|00000650| 65 78 69 74 28 22 68 67 | 6f 66 66 22 2c 30 29 0d |exit("hg|off",0).|
|00000660| 01 90 27 61 63 6f 72 6e | 65 74 5f 64 69 72 24 3d |..'acorn|et_dir$=|
|00000670| a4 67 65 74 65 6e 76 28 | 22 41 63 6f 72 6e 65 74 |.getenv(|"Acornet|
|00000680| 24 44 69 72 22 29 0d 01 | 9a 23 64 69 72 31 24 3d |$Dir")..|.#dir1$=|
|00000690| 61 63 6f 72 6e 65 74 5f | 64 69 72 24 2b 22 2e 52 |acornet_|dir$+".R|
|000006a0| 65 73 6f 75 72 63 65 73 | 22 0d 01 a4 1e 64 69 72 |esources|"....dir|
|000006b0| 32 24 3d 61 63 6f 72 6e | 65 74 5f 64 69 72 24 2b |2$=acorn|et_dir$+|
|000006c0| 22 2e 41 70 70 73 22 0d | 01 ae 21 74 65 6d 70 64 |".Apps".|..!tempd|
|000006d0| 69 72 24 3d 61 63 6f 72 | 6e 65 74 5f 64 69 72 24 |ir$=acor|net_dir$|
|000006e0| 2b 22 2e 54 65 6d 70 22 | 0d 01 b8 13 f2 63 64 69 |+".Temp"|.....cdi|
|000006f0| 72 28 74 65 6d 70 64 69 | 72 24 29 0d 01 c2 04 0d |r(tempdi|r$).....|
|00000700| 01 cc 1f f4 20 43 6f 75 | 6e 74 20 68 6f 77 20 6d |.... Cou|nt how m|
|00000710| 61 6e 79 20 61 70 70 73 | 20 74 6f 20 64 6f 0d 01 |any apps| to do..|
|00000720| d6 0b 6e 61 70 70 25 3d | 30 0d 01 e0 17 f2 62 6f |..napp%=|0.....bo|
|00000730| 6f 74 5f 73 63 61 6e 28 | 64 69 72 31 24 2c a3 29 |ot_scan(|dir1$,.)|
|00000740| 0d 01 ea 0c 6e 61 70 70 | 25 2b 3d 31 0d 01 f4 17 |....napp|%+=1....|
|00000750| f2 62 6f 6f 74 5f 73 63 | 61 6e 28 64 69 72 32 24 |.boot_sc|an(dir2$|
|00000760| 2c a3 29 0d 01 fe 04 0d | 02 08 11 f4 20 4e 6f 77 |,.).....|.... Now|
|00000770| 20 64 6f 20 74 68 65 6d | 0d 02 12 0f 6e 61 70 70 | do them|....napp|
|00000780| 64 6f 6e 65 25 3d 30 0d | 02 1c 17 f2 62 6f 6f 74 |done%=0.|....boot|
|00000790| 5f 73 63 61 6e 28 64 69 | 72 31 24 2c b9 29 0d 02 |_scan(di|r1$,.)..|
|000007a0| 26 2e e7 20 a4 66 69 6c | 65 5f 65 78 69 73 74 73 |&.. .fil|e_exists|
|000007b0| 28 61 63 6f 72 6e 65 74 | 5f 64 69 72 24 2b 22 2e |(acornet|_dir$+".|
|000007c0| 21 4e 65 77 73 44 69 72 | 22 29 20 8c 0d 02 27 38 |!NewsDir|") ...'8|
|000007d0| 20 20 20 f2 62 6f 6f 74 | 5f 61 70 70 28 61 63 6f |   .boot|_app(aco|
|000007e0| 72 6e 65 74 5f 64 69 72 | 24 2b 22 2e 21 4e 65 77 |rnet_dir|$+".!New|
|000007f0| 73 44 69 72 22 29 3a 20 | 6e 61 70 70 64 6f 6e 65 |sDir"): |nappdone|
|00000800| 25 2b 3d 31 0d 02 28 05 | cd 0d 02 30 17 f2 62 6f |%+=1..(.|...0..bo|
|00000810| 6f 74 5f 73 63 61 6e 28 | 64 69 72 32 24 2c b9 29 |ot_scan(|dir2$,.)|
|00000820| 0d 02 3a 04 0d 02 44 13 | f2 77 69 6d 70 5f 63 6c |..:...D.|.wimp_cl|
|00000830| 6f 73 65 64 6f 77 6e 0d | 02 4e 09 f2 65 78 69 74 |osedown.|.N..exit|
|00000840| 0d 02 58 05 e0 0d 02 62 | 04 0d 02 6c 1b dd 20 f2 |..X....b|...l.. .|
|00000850| 62 6f 6f 74 5f 73 63 61 | 6e 28 64 69 72 24 2c 62 |boot_sca|n(dir$,b|
|00000860| 6f 6f 74 29 0d 02 76 12 | ea 20 64 25 2c 61 70 70 |oot)..v.|. d%,app|
|00000870| 24 2c 61 70 70 24 0d 02 | 80 16 64 25 3d a4 64 69 |$,app$..|..d%=.di|
|00000880| 72 5f 6f 70 65 6e 28 64 | 69 72 24 29 0d 02 8a 19 |r_open(d|ir$)....|
|00000890| c8 95 20 a4 64 69 72 5f | 72 65 61 64 28 64 25 2c |.. .dir_|read(d%,|
|000008a0| 61 70 70 24 29 0d 02 94 | 14 20 20 e7 20 97 61 70 |app$)...|.  . .ap|
|000008b0| 70 24 3d 97 22 21 22 20 | 8c 0d 02 9e 10 20 20 20 |p$=."!" |.....   |
|000008c0| 20 e7 20 62 6f 6f 74 20 | 8c 0d 02 a8 22 20 20 20 | . boot |...."   |
|000008d0| 20 20 20 f2 62 6f 6f 74 | 5f 61 70 70 28 64 69 72 |   .boot|_app(dir|
|000008e0| 24 2b 22 2e 22 2b 61 70 | 70 24 29 0d 02 b2 09 20 |$+"."+ap|p$).... |
|000008f0| 20 20 20 cc 0d 02 bc 12 | 20 20 20 20 20 20 6e 61 |   .....|      na|
|00000900| 70 70 25 2b 3d 31 0d 02 | c6 09 20 20 20 20 cd 0d |pp%+=1..|..    ..|
|00000910| 02 d0 07 20 20 cd 0d 02 | da 05 ce 0d 02 e4 12 f2 |...  ...|........|
|00000920| 64 69 72 5f 63 6c 6f 73 | 65 28 64 25 29 0d 02 ee |dir_clos|e(d%)...|
|00000930| 05 e1 0d 02 f8 04 0d 03 | 02 3e f4 20 61 70 70 6c |........|.>. appl|
|00000940| 69 63 61 74 69 6f 6e 20 | 22 62 6f 6f 74 22 20 6d |ication |"boot" m|
|00000950| 65 74 68 6f 64 20 72 65 | 74 75 72 6e 73 20 22 31 |ethod re|turns "1|
|00000960| 22 20 69 66 20 69 74 20 | 68 61 73 20 64 6f 6e 65 |" if it |has done|
|00000970| 20 74 68 65 0d 03 0c 3f | f4 20 62 6f 6f 74 69 6e | the...?|. bootin|
|00000980| 67 20 69 74 73 65 6c 66 | 3b 20 22 64 69 72 20 76 |g itself|; "dir v|
|00000990| 61 72 6e 61 6d 65 22 20 | 77 68 69 63 68 20 6d 65 |arname" |which me|
|000009a0| 61 6e 73 20 66 6f 72 63 | 65 20 61 20 62 6f 6f 74 |ans forc|e a boot|
|000009b0| 20 69 66 0d 03 16 41 f4 | 20 74 68 65 20 76 61 72 | if...A.| the var|
|000009c0| 69 61 62 6c 65 20 69 73 | 20 6e 6f 74 20 73 65 74 |iable is| not set|
|000009d0| 20 74 6f 20 74 68 65 20 | 61 70 70 20 64 69 72 65 | to the |app dire|
|000009e0| 63 74 6f 72 79 20 28 42 | 32 2c 42 34 29 3b 20 6f |ctory (B|2,B4); o|
|000009f0| 72 20 22 22 0d 03 20 3f | f4 20 28 74 68 65 20 64 |r "".. ?|. (the d|
|00000a00| 65 66 61 75 6c 74 20 69 | 66 20 74 68 65 20 6d 65 |efault i|f the me|
|00000a10| 74 68 6f 64 20 69 73 20 | 75 6e 69 6d 70 6c 65 6d |thod is |unimplem|
|00000a20| 65 6e 74 65 64 29 2e 20 | 20 49 66 20 22 22 20 74 |ented). | If "" t|
|00000a30| 68 65 6e 0d 03 2a 38 f4 | 20 74 68 65 20 61 70 70 |hen..*8.| the app|
|00000a40| 20 69 73 20 66 6f 72 63 | 65 64 20 74 6f 20 62 65 | is forc|ed to be|
|00000a50| 20 73 79 6e 74 68 65 74 | 69 63 61 6c 6c 79 20 62 | synthet|ically b|
|00000a60| 6f 6f 74 65 64 20 28 42 | 31 29 2e 0d 03 34 18 dd |ooted (B|1)...4..|
|00000a70| 20 f2 62 6f 6f 74 5f 61 | 70 70 28 61 70 70 64 69 | .boot_a|pp(appdi|
|00000a80| 72 24 29 0d 03 3e 0f ea | 20 61 70 70 24 2c 72 65 |r$)..>..| app$,re|
|00000a90| 74 24 0d 03 48 1b f2 74 | 72 61 63 65 28 22 42 6f |t$..H..t|race("Bo|
|00000aa0| 6f 74 20 22 2b 61 70 70 | 64 69 72 24 29 0d 03 52 |ot "+app|dir$)..R|
|00000ab0| 1c f4 20 53 68 6f 77 20 | 74 68 65 20 70 72 6f 67 |.. Show |the prog|
|00000ac0| 72 65 73 73 20 28 42 35 | 29 0d 03 5c 30 c8 99 22 |ress (B5|)..\0.."|
|00000ad0| 48 6f 75 72 67 6c 61 73 | 73 5f 50 65 72 63 65 6e |Hourglas|s_Percen|
|00000ae0| 74 61 67 65 22 2c 6e 61 | 70 70 64 6f 6e 65 25 2a |tage",na|ppdone%*|
|00000af0| 31 30 30 2f 6e 61 70 70 | 25 0d 03 66 26 61 70 70 |100/napp|%..f&app|
|00000b00| 24 3d a4 73 74 72 6c 6f | 77 65 72 28 c1 a4 6c 65 |$=.strlo|wer(..le|
|00000b10| 61 66 28 61 70 70 64 69 | 72 24 29 2c 32 29 29 0d |af(appdi|r$),2)).|
|00000b20| 03 70 23 72 65 74 24 3d | a4 62 6f 6f 74 5f 6d 65 |.p#ret$=|.boot_me|
|00000b30| 74 68 6f 64 28 61 70 70 | 24 2c 61 70 70 64 69 72 |thod(app|$,appdir|
|00000b40| 24 29 0d 03 7a 17 e7 20 | c0 72 65 74 24 2c 34 29 |$)..z.. |.ret$,4)|
|00000b50| 3d 22 64 69 72 20 22 20 | 8c 0d 03 84 4c 20 20 e7 |="dir " |....L  .|
|00000b60| 20 a4 73 74 72 6c 6f 77 | 65 72 28 a4 67 65 74 65 | .strlow|er(.gete|
|00000b70| 6e 76 28 c1 72 65 74 24 | 2c 35 29 29 29 3d a4 73 |nv(.ret$|,5)))=.s|
|00000b80| 74 72 6c 6f 77 65 72 28 | 61 70 70 64 69 72 24 29 |trlower(|appdir$)|
|00000b90| 20 8c 20 72 65 74 24 3d | 22 31 22 20 8b 20 72 65 | . ret$=|"1" . re|
|00000ba0| 74 24 3d 22 22 0d 03 8e | 05 cd 0d 03 98 3a e7 20 |t$=""...|.....:. |
|00000bb0| 72 65 74 24 3d 22 31 22 | 20 f2 74 72 61 63 65 28 |ret$="1"| .trace(|
|00000bc0| 22 44 6f 6e 65 20 22 2b | 61 70 70 24 29 20 8b 20 |"Done "+|app$) . |
|00000bd0| f2 62 6f 6f 74 5f 66 6f | 72 63 65 28 61 70 70 64 |.boot_fo|rce(appd|
|00000be0| 69 72 24 29 0d 03 a2 10 | 6e 61 70 70 64 6f 6e 65 |ir$)....|nappdone|
|00000bf0| 25 2b 3d 31 0d 03 ac 05 | e1 0d 03 b6 04 0d 03 c0 |%+=1....|........|
|00000c00| 1a dd 20 f2 62 6f 6f 74 | 5f 66 6f 72 63 65 28 61 |.. .boot|_force(a|
|00000c10| 70 70 64 69 72 24 29 0d | 03 ca 0b ea 20 66 61 6b |ppdir$).|.... fak|
|00000c20| 65 24 0d 03 d4 26 e7 20 | a4 66 69 6c 65 5f 65 78 |e$...&. |.file_ex|
|00000c30| 69 73 74 73 28 61 70 70 | 64 69 72 24 2b 22 2e 21 |ists(app|dir$+".!|
|00000c40| 42 6f 6f 74 22 29 20 8c | 0d 03 de 29 20 20 f2 74 |Boot") .|...)  .t|
|00000c50| 72 61 63 65 28 22 52 75 | 6e 6e 69 6e 67 20 22 2b |race("Ru|nning "+|
|00000c60| 61 70 70 64 69 72 24 2b | 22 2e 21 42 6f 6f 74 22 |appdir$+|".!Boot"|
|00000c70| 29 0d 03 e8 27 20 20 ff | 22 57 69 6d 70 54 61 73 |)...'  .|"WimpTas|
|00000c80| 6b 20 52 75 6e 20 22 2b | 61 70 70 64 69 72 24 2b |k Run "+|appdir$+|
|00000c90| 22 2e 21 42 6f 6f 74 22 | 0d 03 f2 05 cc 0d 03 fc |".!Boot"|........|
|00000ca0| 33 20 20 f2 74 72 61 63 | 65 28 22 49 63 6f 6e 53 |3  .trac|e("IconS|
|00000cb0| 70 72 69 74 65 73 69 6e | 67 20 22 2b 61 70 70 64 |pritesin|g "+appd|
|00000cc0| 69 72 24 2b 22 2e 21 53 | 70 72 69 74 65 73 22 29 |ir$+".!S|prites")|
|00000cd0| 0d 04 06 29 20 20 ff 22 | 49 63 6f 6e 53 70 72 69 |...)  ."|IconSpri|
|00000ce0| 74 65 73 20 22 2b 61 70 | 70 64 69 72 24 2b 22 2e |tes "+ap|pdir$+".|
|00000cf0| 21 53 70 72 69 74 65 73 | 22 0d 04 10 05 cd 0d 04 |!Sprites|".......|
|00000d00| 1a 31 f4 20 46 69 6c 65 | 72 5f 42 6f 6f 74 20 61 |.1. File|r_Boot a|
|00000d10| 20 66 61 6b 65 20 64 69 | 72 20 6f 66 20 74 68 65 | fake di|r of the|
|00000d20| 20 73 61 6d 65 20 6e 61 | 6d 65 20 28 42 33 29 0d | same na|me (B3).|
|00000d30| 04 24 25 66 61 6b 65 24 | 3d 74 65 6d 70 64 69 72 |.$%fake$|=tempdir|
|00000d40| 24 2b 22 2e 22 2b a4 6c | 65 61 66 28 61 70 70 64 |$+"."+.l|eaf(appd|
|00000d50| 69 72 24 29 0d 04 2e 10 | f2 63 64 69 72 28 66 61 |ir$)....|.cdir(fa|
|00000d60| 6b 65 24 29 0d 04 38 35 | ff 28 22 43 72 65 61 74 |ke$)..85|.("Creat|
|00000d70| 65 20 22 2b 74 65 6d 70 | 64 69 72 24 2b 22 2e 22 |e "+temp|dir$+"."|
|00000d80| 2b a4 6c 65 61 66 28 61 | 70 70 64 69 72 24 29 2b |+.leaf(a|ppdir$)+|
|00000d90| 22 2e 21 42 6f 6f 74 22 | 29 0d 04 42 3b ff 28 22 |".!Boot"|)..B;.("|
|00000da0| 53 65 74 54 79 70 65 20 | 22 2b 74 65 6d 70 64 69 |SetType |"+tempdi|
|00000db0| 72 24 2b 22 2e 22 2b a4 | 6c 65 61 66 28 61 70 70 |r$+"."+.|leaf(app|
|00000dc0| 64 69 72 24 29 2b 22 2e | 21 42 6f 6f 74 20 4f 62 |dir$)+".|!Boot Ob|
|00000dd0| 65 79 22 29 0d 04 4c 18 | ff 22 46 69 6c 65 72 5f |ey")..L.|."Filer_|
|00000de0| 42 6f 6f 74 20 22 2b 66 | 61 6b 65 24 0d 04 56 17 |Boot "+f|ake$..V.|
|00000df0| f2 66 69 6c 65 5f 72 65 | 6d 6f 76 65 28 66 61 6b |.file_re|move(fak|
|00000e00| 65 24 29 0d 04 60 05 e1 | 0d 04 6a 04 0d 04 74 28 |e$)..`..|..j...t(|
|00000e10| f4 20 42 6f 6f 74 69 6e | 67 20 72 75 6c 65 73 20 |. Bootin|g rules |
|00000e20| 66 6f 72 20 65 61 63 68 | 20 61 70 70 6c 69 63 61 |for each| applica|
|00000e30| 74 69 6f 6e 0d 04 7e 1d | dd 20 a4 62 6f 6f 74 5f |tion..~.|. .boot_|
|00000e40| 6d 65 74 68 6f 64 28 61 | 70 70 24 2c 64 69 72 24 |method(a|pp$,dir$|
|00000e50| 29 0d 04 88 08 ea 20 61 | 24 0d 04 92 0d c8 8e 20 |)..... a|$...... |
|00000e60| 61 70 70 24 20 ca 0d 04 | 9c 0f c9 20 22 61 72 63 |app$ ...|... "arc|
|00000e70| 77 65 62 22 3a 0d 04 a6 | 29 20 20 e7 20 a4 67 65 |web":...|)  . .ge|
|00000e80| 74 65 6e 76 28 22 41 72 | 63 57 65 62 24 44 69 72 |tenv("Ar|cWeb$Dir|
|00000e90| 22 29 3d 64 69 72 24 20 | 8c 20 3d 22 31 22 0d 04 |")=dir$ |. ="1"..|
|00000ea0| b0 26 20 20 61 24 3d a4 | 67 65 74 65 6e 76 28 22 |.&  a$=.|getenv("|
|00000eb0| 41 6c 69 61 73 24 40 52 | 75 6e 54 79 70 65 5f 46 |Alias$@R|unType_F|
|00000ec0| 41 46 22 29 0d 04 ba 3e | 20 20 f4 20 4f 6e 6c 79 |AF")...>|  . Only|
|00000ed0| 20 63 68 61 6e 67 65 20 | 48 54 4d 4c 20 61 63 74 | change |HTML act|
|00000ee0| 69 6f 6e 20 69 66 20 72 | 65 66 65 72 72 69 6e 67 |ion if r|eferring|
|00000ef0| 20 74 6f 20 61 6e 6f 74 | 68 65 72 20 41 72 63 57 | to anot|her ArcW|
|00000f00| 65 62 0d 04 c4 3f 20 20 | e7 20 a7 a4 73 74 72 6c |eb...?  |. ..strl|
|00000f10| 6f 77 65 72 28 61 24 29 | 2c 22 21 61 72 63 77 65 |ower(a$)|,"!arcwe|
|00000f20| 62 22 29 20 8c 20 ff 22 | 55 6e 73 65 74 20 41 6c |b") . ."|Unset Al|
|00000f30| 69 61 73 24 40 52 75 6e | 54 79 70 65 5f 46 41 46 |ias$@Run|Type_FAF|
|00000f40| 22 0d 04 ce 17 20 20 f2 | 62 6f 6f 74 5f 66 6f 72 |"....  .|boot_for|
|00000f50| 63 65 28 64 69 72 24 29 | 0d 04 d8 0a 20 20 3d 22 |ce(dir$)|....  ="|
|00000f60| 31 22 0d 04 e2 21 c9 20 | 22 66 69 6e 67 65 72 22 |1"...!. |"finger"|
|00000f70| 3a 20 3d 22 64 69 72 20 | 46 69 6e 67 65 72 24 44 |: ="dir |Finger$D|
|00000f80| 69 72 22 0d 04 ec 23 c9 | 20 22 66 72 65 65 6e 65 |ir"...#.| "freene|
|00000f90| 74 22 3a 20 3d 22 64 69 | 72 20 46 72 65 65 4e 65 |t": ="di|r FreeNe|
|00000fa0| 74 24 44 69 72 22 0d 04 | f6 25 c9 20 22 66 72 65 |t$Dir"..|.%. "fre|
|00000fb0| 65 6e 65 77 73 22 3a 20 | 3d 22 64 69 72 20 46 72 |enews": |="dir Fr|
|00000fc0| 65 65 4e 65 77 73 24 44 | 69 72 22 0d 05 00 27 c9 |eeNews$D|ir"...'.|
|00000fd0| 20 22 66 72 65 65 73 6d | 74 70 22 3a 20 3d 22 64 | "freesm|tp": ="d|
|00000fe0| 69 72 20 53 4d 54 50 53 | 65 72 76 65 72 24 44 69 |ir SMTPS|erver$Di|
|00000ff0| 72 22 0d 05 0a 25 c9 20 | 22 66 72 65 65 74 65 72 |r"...%. |"freeter|
|00001000| 6d 22 3a 20 3d 22 64 69 | 72 20 46 72 65 65 54 65 |m": ="di|r FreeTe|
|00001010| 72 6d 24 44 69 72 22 0d | 05 0b 25 c9 20 22 66 72 |rm$Dir".|..%. "fr|
|00001020| 65 65 74 69 6d 65 22 3a | 20 3d 22 64 69 72 20 46 |eetime":| ="dir F|
|00001030| 72 65 65 54 69 6d 65 24 | 44 69 72 22 0d 05 14 25 |reeTime$|Dir"...%|
|00001040| c9 20 22 66 72 65 65 75 | 73 65 72 22 3a 20 3d 22 |. "freeu|ser": ="|
|00001050| 64 69 72 20 46 72 65 65 | 55 73 65 72 24 44 69 72 |dir Free|User$Dir|
|00001060| 22 0d 05 1e 21 c9 20 22 | 67 72 6f 75 70 73 22 3a |"...!. "|groups":|
|00001070| 20 3d 22 64 69 72 20 47 | 72 6f 75 70 73 24 44 69 | ="dir G|roups$Di|
|00001080| 72 22 0d 05 28 27 c9 20 | 22 6d 65 73 73 65 6e 67 |r"..('. |"messeng|
|00001090| 65 72 22 3a 20 3d 22 64 | 69 72 20 4d 65 73 73 65 |er": ="d|ir Messe|
|000010a0| 6e 67 65 72 24 44 69 72 | 22 0d 05 32 25 c9 20 22 |nger$Dir|"..2%. "|
|000010b0| 6e 65 77 73 62 61 73 65 | 22 3a 20 3d 22 64 69 72 |newsbase|": ="dir|
|000010c0| 20 4e 65 77 73 62 61 73 | 65 24 44 69 72 22 0d 05 | Newsbas|e$Dir"..|
|000010d0| 3c 10 c9 20 22 6e 65 77 | 73 64 69 72 22 3a 0d 05 |<.. "new|sdir":..|
|000010e0| 46 55 20 20 e7 20 a4 67 | 65 74 65 6e 76 28 22 4e |FU  . .g|etenv("N|
|000010f0| 65 77 73 44 69 72 24 44 | 69 72 22 29 3d 64 69 72 |ewsDir$D|ir")=dir|
|00001100| 24 20 e7 20 a4 67 65 74 | 65 6e 76 28 22 55 73 65 |$ . .get|env("Use|
|00001110| 72 48 6f 6d 65 24 44 69 | 72 22 29 3d 64 69 72 24 |rHome$Di|r")=dir$|
|00001120| 2b 22 2e 55 73 65 72 48 | 6f 6d 65 22 20 8c 20 3d |+".UserH|ome" . =|
|00001130| 22 31 22 0d 05 50 17 20 | 20 f2 62 6f 6f 74 5f 66 |"1"..P. | .boot_f|
|00001140| 6f 72 63 65 28 64 69 72 | 24 29 0d 05 5a 0a 20 20 |orce(dir|$)..Z.  |
|00001150| 3d 22 31 22 0d 05 5b 27 | c9 20 22 6e 65 77 73 68 |="1"..['|. "newsh|
|00001160| 6f 75 6e 64 22 3a 20 3d | 22 64 69 72 20 4e 65 77 |ound": =|"dir New|
|00001170| 73 48 6f 75 6e 64 24 44 | 69 72 22 0d 05 64 1d c9 |sHound$D|ir"..d..|
|00001180| 20 22 70 69 6e 67 22 3a | 20 3d 22 64 69 72 20 50 | "ping":| ="dir P|
|00001190| 69 6e 67 24 44 69 72 22 | 0d 05 6e 1b c9 20 22 70 |ing$Dir"|..n.. "p|
|000011a0| 6f 70 22 3a 20 3d 22 64 | 69 72 20 50 4f 50 24 44 |op": ="d|ir POP$D|
|000011b0| 69 72 22 0d 05 6f 1f c9 | 20 22 71 65 64 69 74 22 |ir"..o..| "qedit"|
|000011c0| 3a 20 3d 22 64 69 72 20 | 51 45 64 69 74 24 44 69 |: ="dir |QEdit$Di|
|000011d0| 72 22 0d 05 78 12 c9 20 | 22 73 65 72 69 61 6c 64 |r"..x.. |"seriald|
|000011e0| 65 76 22 3a 0d 05 82 31 | 20 20 e7 20 a4 67 65 74 |ev":...1|  . .get|
|000011f0| 65 6e 76 28 22 53 65 72 | 69 61 6c 44 65 76 24 50 |env("Ser|ialDev$P|
|00001200| 61 74 68 22 29 3d 64 69 | 72 24 2b 22 2e 22 20 8c |ath")=di|r$+"." .|
|00001210| 20 3d 22 31 22 0d 05 8c | 1d 20 20 ff 22 55 6e 73 | ="1"...|.  ."Uns|
|00001220| 65 74 20 53 65 72 69 61 | 6c 44 65 76 24 50 61 74 |et Seria|lDev$Pat|
|00001230| 68 22 0d 05 96 17 20 20 | f2 62 6f 6f 74 5f 66 6f |h"....  |.boot_fo|
|00001240| 72 63 65 28 64 69 72 24 | 29 0d 05 a0 0a 20 20 3d |rce(dir$|)....  =|
|00001250| 22 31 22 0d 05 aa 25 c9 | 20 22 73 6c 69 70 64 69 |"1"...%.| "slipdi|
|00001260| 61 6c 22 3a 20 3d 22 64 | 69 72 20 53 6c 69 70 64 |al": ="d|ir Slipd|
|00001270| 69 61 6c 24 44 69 72 22 | 0d 05 b4 28 c9 20 22 73 |ial$Dir"|...(. "s|
|00001280| 74 72 6f 6e 67 68 6c 70 | 22 3a 20 3d 22 64 69 72 |tronghlp|": ="dir|
|00001290| 20 53 74 72 6f 6e 67 48 | 65 6c 70 24 44 69 72 22 | StrongH|elp$Dir"|
|000012a0| 0d 05 be 20 c9 20 22 74 | 63 70 69 70 22 3a 20 3d |... . "t|cpip": =|
|000012b0| 22 64 69 72 20 54 43 50 | 49 50 32 24 44 69 72 22 |"dir TCP|IP2$Dir"|
|000012c0| 0d 05 c8 1d c9 20 22 74 | 74 66 6e 22 3a 20 3d 22 |..... "t|tfn": ="|
|000012d0| 64 69 72 20 54 54 46 4e | 24 44 69 72 22 0d 05 d2 |dir TTFN|$Dir"...|
|000012e0| 11 c9 20 22 77 65 62 63 | 61 63 68 65 22 3a 0d 05 |.. "webc|ache":..|
|000012f0| dc 62 20 20 e7 20 a4 67 | 65 74 65 6e 76 28 22 41 |.b  . .g|etenv("A|
|00001300| 72 63 57 65 62 24 43 61 | 63 68 65 44 69 72 22 29 |rcWeb$Ca|cheDir")|
|00001310| 3d 64 69 72 24 2b 22 2e | 44 61 74 61 22 20 e7 20 |=dir$+".|Data" . |
|00001320| a4 67 65 74 65 6e 76 28 | 22 41 72 63 57 65 62 43 |.getenv(|"ArcWebC|
|00001330| 61 63 68 65 24 50 61 74 | 68 22 29 3d 64 69 72 24 |ache$Pat|h")=dir$|
|00001340| 2b 22 2e 44 61 74 61 2e | 22 20 8c 20 3d 22 31 22 |+".Data.|" . ="1"|
|00001350| 0d 05 e6 1e 20 20 ff 22 | 55 6e 73 65 74 20 41 72 |....  ."|Unset Ar|
|00001360| 63 57 65 62 24 41 75 74 | 68 46 69 6c 65 22 0d 05 |cWeb$Aut|hFile"..|
|00001370| f0 1f 20 20 ff 22 55 6e | 73 65 74 20 41 72 63 57 |..  ."Un|set ArcW|
|00001380| 65 62 24 43 61 63 68 65 | 50 61 74 68 22 0d 05 fa |eb$Cache|Path"...|
|00001390| 17 20 20 f2 62 6f 6f 74 | 5f 66 6f 72 63 65 28 64 |.  .boot|_force(d|
|000013a0| 69 72 24 29 0d 06 04 0a | 20 20 3d 22 31 22 0d 06 |ir$)....|  ="1"..|
|000013b0| 0e 12 c9 20 22 77 65 62 | 68 65 6c 70 65 72 22 3a |... "web|helper":|
|000013c0| 0d 06 18 67 20 20 e7 20 | a4 67 65 74 65 6e 76 28 |...g  . |.getenv(|
|000013d0| 22 41 72 63 57 65 62 24 | 48 65 6c 70 65 72 24 44 |"ArcWeb$|Helper$D|
|000013e0| 69 72 22 29 3d 64 69 72 | 24 2b 22 2e 41 70 70 44 |ir")=dir|$+".AppD|
|000013f0| 69 72 22 20 e7 20 a7 a4 | 67 65 74 65 6e 76 28 22 |ir" . ..|getenv("|
|00001400| 41 6c 69 61 73 24 41 72 | 63 57 65 62 5f 4f 70 65 |Alias$Ar|cWeb_Ope|
|00001410| 6e 48 65 6c 70 65 72 73 | 22 29 2c 64 69 72 24 29 |nHelpers|"),dir$)|
|00001420| 20 8c 20 3d 22 31 22 0d | 06 22 20 20 20 ff 22 55 | . ="1".|."   ."U|
|00001430| 6e 73 65 74 20 41 72 63 | 57 65 62 24 48 65 6c 70 |nset Arc|Web$Help|
|00001440| 65 72 24 44 69 72 22 0d | 06 2c 27 20 20 ff 22 55 |er$Dir".|.,'  ."U|
|00001450| 6e 73 65 74 20 41 6c 69 | 61 73 24 41 72 63 57 65 |nset Ali|as$ArcWe|
|00001460| 62 5f 4f 70 65 6e 48 65 | 6c 70 65 72 73 22 0d 06 |b_OpenHe|lpers"..|
|00001470| 36 17 20 20 f2 62 6f 6f | 74 5f 66 6f 72 63 65 28 |6.  .boo|t_force(|
|00001480| 64 69 72 24 29 0d 06 40 | 0a 20 20 3d 22 31 22 0d |dir$)..@|.  ="1".|
|00001490| 06 4a 05 cb 0d 06 54 07 | 3d 22 22 0d 06 5e 04 0d |.J....T.|=""..^..|
|000014a0| 06 68 10 dd 20 a4 68 67 | 6f 66 66 28 61 25 29 0d |.h.. .hg|off(a%).|
|000014b0| 06 72 15 c8 99 22 48 6f | 75 72 67 6c 61 73 73 5f |.r..."Ho|urglass_|
|000014c0| 4f 66 66 22 0d 06 7c 06 | 3d 30 0d ff             |Off"..|.|=0..    |
+--------+-------------------------+-------------------------+--------+--------+